home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 3 / AGA Experience Volume 3 (1997)(NFA - SAdENESS)[!].iso / software / utilities / graphics / gfxlab24 / arexxscripts / emptyscript.rexx < prev    next >
OS/2 REXX Batch file  |  1995-06-12  |  3KB  |  74 lines
  1. /* This is an empty ARexx script, which can be used to create     */
  2. /* new ones. It is Unix-like shell proof, so that it can be       */
  3. /* launched from any type of shell, and can be given pattern and  */
  4. /* names in the command line.                                     */
  5.  
  6. /* Example :                                                      */
  7. /*                                                                */
  8. /*     rx emptyscript.rexx #?.gif                               */
  9. /*     rx emptyscript.rexx #?.gif b.jpeg c.ilbm d.iff  */
  10.  
  11. /* Of course, under Csh and other Unix shells, you should not     */
  12. /* use #? but "*" instead. The reason is that unix shells don't   */
  13. /* send the pattern, but replace it directly by the corresponding */
  14. /* file names and #? is not understood by Csh.                    */
  15.  
  16. /* You can use it safely, by just changing the inner loop, beside */
  17.  
  18.  
  19.          /* Address the GfxLab24 Arexx port */
  20.  
  21. ADDRESS GFXLAB24.0
  22. options results
  23.  
  24.          /* Put here your inits             */
  25.  
  26.  
  27.          /* Print a message in GfxLab24 info window */
  28.  
  29. PrintInfo ''
  30. PrintInfo '"Beginning of the emptyscript AREXX script"'
  31. PrintInfo '"Script by UserName, date"'
  32.  
  33. GfxListIndex = 1    /* Scan all the names in the command line */
  34.                     /* that was given to the script, starting */
  35.                     /* with the value in 'GfxListIndex', until there */
  36.                     /* is no more names in command line       */
  37.                     /* (while the current name is not empty)  */
  38. DO UNTIL word(arg(1),GfxListIndex)=''
  39.  
  40.                     /* Get name from the command line */
  41.     GfxMyList = WORD(arg(1), GfxListIndex)
  42.     GfxListIndex = GfxListIndex + 1
  43.  
  44.                 /* GetFromPattern is a GfxLab24 function that  */
  45.                 /* return a list of filenames corresponding to */
  46.                 /* the given argument. This argument should be */
  47.                 /* a pattern, but a single filename is ok and  */
  48.                 /* bug-proof.                                  */
  49.  
  50.     GetFromPattern GfxMyList
  51.     GfxMyList = result
  52.     if (WORD(GfxMyList,1)="ERROR") Then Exit
  53.     GfxsubListIndex = 1
  54.     DO UNTIL word(GfxMyList,GfxsubListIndex)=''
  55.         FileName = word(GfxMyList,GfxsubListIndex)
  56.         GfxsubListIndex = GfxsubListIndex +1
  57.  
  58.         PrintInfo '"Processing 'FileName '"'
  59.         Load FileName               /* Load the picture */
  60.         if result = "OK" then
  61.              DO
  62.  
  63.                         /* Add want you want here */
  64.  
  65.  
  66.                         /* Free empty space for you script ... :)  */
  67.  
  68.              END
  69.     END
  70. END
  71. PrintInfo '"End of the Empty Script"'
  72.  
  73.  
  74.